home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 September / CHIP Eylül 1998.iso / demolar / lokman / DISK1 / _SETUP.4 / Group1 / Demo8E.exe / 0 / RCDATA / TMIKDLG / TMIKDLG.txt
Text File  |  1998-07-30  |  13KB  |  553 lines
  1. object MikDlg: TMikDlg
  2.   Left = 196
  3.   Top = 112
  4.   ActiveControl = OKBtn
  5.   BorderStyle = bsDialog
  6.   Caption = '∩┐╜r∩┐╜n De∩┐╜erlerini Belirleme'
  7.   ClientHeight = 309
  8.   ClientWidth = 431
  9.   Font.Color = clBlack
  10.   Font.Height = -11
  11.   Font.Name = 'Arial Tur'
  12.   Font.Style = [fsBold]
  13.   KeyPreview = True
  14.   OnClose = FormClose
  15.   OnDestroy = FormDestroy
  16.   OnKeyDown = FormKeyDown
  17.   OnKeyPress = FormKeyPress
  18.   OnShow = FormShow
  19.   PixelsPerInch = 96
  20.   TextHeight = 14
  21.   object LabelURAD: TLabel
  22.     Left = 9
  23.     Top = 1
  24.     Width = 63
  25.     Height = 15
  26.     Alignment = taCenter
  27.     Caption = 'LabelURAD'
  28.     Font.Color = clBlack
  29.     Font.Height = -12
  30.     Font.Name = 'Arial Tur'
  31.     Font.Style = [fsBold]
  32.     ParentFont = False
  33.   end
  34.   object LabelFiyat: TLabel
  35.     Left = 0
  36.     Top = 17
  37.     Width = 98
  38.     Height = 15
  39.     Alignment = taRightJustify
  40.     AutoSize = False
  41.     Caption = 'Fi&yat∩┐╜'
  42.     FocusControl = DBEditFIYAT
  43.     Font.Color = clRed
  44.     Font.Height = -12
  45.     Font.Name = 'Arial Tur'
  46.     Font.Style = [fsBold]
  47.     ParentFont = False
  48.   end
  49.   object Label2: TLabel
  50.     Left = 266
  51.     Top = 43
  52.     Width = 81
  53.     Height = 15
  54.     Caption = 'Mevcut Miktar'
  55.     FocusControl = DBEditELDEMIK
  56.     Font.Color = clBlack
  57.     Font.Height = -12
  58.     Font.Name = 'Arial Tur'
  59.     Font.Style = [fsBold]
  60.     ParentFont = False
  61.   end
  62.   object Label3: TLabel
  63.     Left = 285
  64.     Top = 17
  65.     Width = 62
  66.     Height = 15
  67.     Caption = 'Fiyat Tarihi'
  68.     FocusControl = DBEditTARIH
  69.     Font.Color = clBlack
  70.     Font.Height = -12
  71.     Font.Name = 'Arial Tur'
  72.     Font.Style = [fsBold]
  73.     ParentFont = False
  74.   end
  75.   object LabelSA: TLabel
  76.     Left = 28
  77.     Top = 44
  78.     Width = 71
  79.     Height = 15
  80.     Alignment = taRightJustify
  81.     Caption = 'Sat∩┐╜∩┐╜ Mik&tar∩┐╜'
  82.     FocusControl = DBEditSATISMIK
  83.     Font.Color = clBlack
  84.     Font.Height = -12
  85.     Font.Name = 'Arial Tur'
  86.     Font.Style = [fsBold]
  87.     ParentFont = False
  88.   end
  89.   object Bevel1: TBevel
  90.     Left = 1
  91.     Top = 277
  92.     Width = 427
  93.     Height = 3
  94.     Shape = bsBottomLine
  95.     Style = bsRaised
  96.   end
  97.   object Ayna: TLabel
  98.     Left = 136
  99.     Top = 286
  100.     Width = 73
  101.     Height = 14
  102.     AutoSize = False
  103.     Color = 16777088
  104.     ParentColor = False
  105.     Visible = False
  106.   end
  107.   object DBRadioGrRECKOD: TDBRadioGroup
  108.     Left = 1
  109.     Top = 59
  110.     Width = 429
  111.     Height = 71
  112.     Caption = 'RE∩┐╜ETE T∩┐╜P∩┐╜'
  113.     Color = clSilver
  114.     Columns = 3
  115.     DataField = 'RECKOD'
  116.     DataSource = FiMikSRC
  117.     Font.Color = clBlack
  118.     Font.Height = -11
  119.     Font.Name = 'Arial'
  120.     Font.Style = [fsBold]
  121.     Items.Strings = (
  122.       '&Normal'
  123.       '&Ye∩┐╜il Re∩┐╜eteli'
  124.       '&K∩┐╜rm∩┐╜z∩┐╜ Re∩┐╜eteli'
  125.       '&Re∩┐╜.ile Sat∩┐╜∩┐╜∩┐╜ Mecburi'
  126.       'Antibiogram Gerekli'
  127.       'Sa∩┐╜l∩┐╜k Krl. Rp. Gerekli'
  128.       '&∩┐╜zel Kat∩┐╜l∩┐╜m Payl∩┐╜'
  129.       '∩┐╜la∩┐╜ &Beraberi'
  130.       'Bedeli Hst. ∩┐╜deyecek'
  131.       '&Hastanede Yatan Hst.'
  132.       '∩┐╜thal ∩┐╜la&∩┐╜'
  133.       'Raporl&U ∩┐╜thal ∩┐╜la∩┐╜')
  134.     ParentColor = False
  135.     ParentFont = False
  136.     TabOrder = 6
  137.     Values.Strings = (
  138.       'N'
  139.       'Y'
  140.       'K'
  141.       'R'
  142.       'A'
  143.       'S'
  144.       'O'
  145.       'I'
  146.       'B'
  147.       'H'
  148.       'L'
  149.       'U')
  150.   end
  151.   object DBEditFIYAT: TDBEdit
  152.     Left = 101
  153.     Top = 17
  154.     Width = 158
  155.     Height = 22
  156.     DataField = 'FIYAT'
  157.     DataSource = FiMikSRC
  158.     MaxLength = 0
  159.     TabOrder = 3
  160.     OnEnter = DBEditFIYATEnter
  161.     OnExit = DBEditFIYATExit
  162.   end
  163.   object DBEditELDEMIK: TDBEdit
  164.     Left = 350
  165.     Top = 40
  166.     Width = 79
  167.     Height = 22
  168.     Color = clSilver
  169.     DataField = 'ELDEMIK'
  170.     DataSource = FiMikSRC
  171.     Enabled = False
  172.     MaxLength = 0
  173.     TabOrder = 1
  174.   end
  175.   object DBEditSATISMIK: TDBEdit
  176.     Left = 101
  177.     Top = 40
  178.     Width = 158
  179.     Height = 22
  180.     DataField = 'SATISMIK'
  181.     DataSource = FiMikSRC
  182.     MaxLength = 0
  183.     TabOrder = 4
  184.     OnKeyDown = DBEditSATISMIKKeyDown
  185.     OnKeyPress = DBEditSATISMIKKeyPress
  186.   end
  187.   object DBEditTARIH: TDBEdit
  188.     Left = 350
  189.     Top = 17
  190.     Width = 79
  191.     Height = 22
  192.     Color = clSilver
  193.     DataField = 'TARIH'
  194.     DataSource = FiMikSRC
  195.     Enabled = False
  196.     Font.Color = clBlack
  197.     Font.Height = -11
  198.     Font.Name = 'Arial'
  199.     Font.Style = [fsBold]
  200.     MaxLength = 0
  201.     ParentFont = False
  202.     TabOrder = 2
  203.   end
  204.   object OKBtn: TBitBtn
  205.     Left = 263
  206.     Top = 283
  207.     Width = 75
  208.     Height = 25
  209.     TabOrder = 7
  210.     OnClick = OKBtnClick
  211.     Kind = bkOK
  212.     Margin = 2
  213.     Spacing = 1
  214.     IsControl = True
  215.   end
  216.   object CancelBtn: TBitBtn
  217.     Left = 350
  218.     Top = 283
  219.     Width = 75
  220.     Height = 25
  221.     Caption = '&Vazge∩┐╜'
  222.     TabOrder = 8
  223.     Kind = bkCancel
  224.     Margin = 2
  225.     Spacing = 5
  226.     IsControl = True
  227.   end
  228.   object HelpBtn: TBitBtn
  229.     Left = 176
  230.     Top = 283
  231.     Width = 75
  232.     Height = 25
  233.     HelpContext = 103
  234.     TabOrder = 9
  235.     Kind = bkHelp
  236.     Margin = 2
  237.     Spacing = 3
  238.     IsControl = True
  239.   end
  240.   object BitBtnFIYAT: TBitBtn
  241.     Left = 7
  242.     Top = 245
  243.     Width = 138
  244.     Height = 25
  245.     HelpContext = 104
  246.     Caption = 'Eski Fiyat &Listesi'
  247.     Font.Color = clBlack
  248.     Font.Height = -12
  249.     Font.Name = 'Arial'
  250.     Font.Style = [fsBold]
  251.     ParentFont = False
  252.     TabOrder = 10
  253.     OnClick = BitBtnFIYATClick
  254.     Glyph.Data = {
  255.       76010000424D7601000000000000760000002800000020000000100000000100
  256.       04000000000000010000130B0000130B00000000000000000000000000000000
  257.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  258.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
  259.       333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
  260.       0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
  261.       07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
  262.       07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
  263.       0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
  264.       33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
  265.       B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
  266.       3BB33773333773333773B333333B3333333B7333333733333337}
  267.     NumGlyphs = 2
  268.     Spacing = 9
  269.   end
  270.   object PanelAL: TPanel
  271.     Left = 164
  272.     Top = 131
  273.     Width = 267
  274.     Height = 144
  275.     HelpContext = 134
  276.     BevelInner = bvLowered
  277.     BorderStyle = bsSingle
  278.     Color = clNavy
  279.     Font.Color = clBlack
  280.     Font.Height = -13
  281.     Font.Name = 'Arial'
  282.     Font.Style = [fsBold]
  283.     ParentFont = False
  284.     TabOrder = 5
  285.     Visible = False
  286.     object Label4: TLabel
  287.       Left = 173
  288.       Top = 7
  289.       Width = 62
  290.       Height = 14
  291.       Alignment = taRightJustify
  292.       Caption = 'Farkl∩┐╜ ∩┐╜&sk.%'
  293.       FocusControl = MaskEditFI
  294.       Font.Color = clWhite
  295.       Font.Height = -11
  296.       Font.Name = 'Arial'
  297.       Font.Style = [fsBold]
  298.       ParentFont = False
  299.     end
  300.     object Label1: TLabel
  301.       Left = 173
  302.       Top = 32
  303.       Width = 59
  304.       Height = 14
  305.       Alignment = taRightJustify
  306.       Caption = 'M&al Fazlas∩┐╜'
  307.       FocusControl = MaskEdMalFazl
  308.       Font.Color = clWhite
  309.       Font.Height = -11
  310.       Font.Name = 'Arial'
  311.       Font.Style = [fsBold]
  312.       ParentFont = False
  313.     end
  314.     object Label5: TLabel
  315.       Left = 172
  316.       Top = 95
  317.       Width = 84
  318.       Height = 41
  319.       Caption = 'Not: Al∩┐╜nan Miktar Mal Fazlas∩┐╜yla yazmal∩┐╜d∩┐╜r.'
  320.       Font.Color = clWhite
  321.       Font.Height = -11
  322.       Font.Name = 'Arial'
  323.       Font.Style = []
  324.       ParentFont = False
  325.       WordWrap = True
  326.     end
  327.     object MaskEdMalFazl: TMaskEdit
  328.       Left = 233
  329.       Top = 27
  330.       Width = 26
  331.       Height = 22
  332.       Color = clWhite
  333.       EditMask = '!999;1;_'
  334.       Font.Color = clBlack
  335.       Font.Height = -11
  336.       Font.Name = 'Arial'
  337.       Font.Style = [fsBold]
  338.       MaxLength = 3
  339.       ParentFont = False
  340.       TabOrder = 1
  341.       Text = '  0'
  342.     end
  343.     object RadioGrMKDV: TRadioGroup
  344.       Left = 172
  345.       Top = 52
  346.       Width = 87
  347.       Height = 43
  348.       Caption = 'MFKDV yi Ekle'
  349.       Color = clSilver
  350.       Font.Color = clBlack
  351.       Font.Height = -11
  352.       Font.Name = 'Arial'
  353.       Font.Style = [fsBold]
  354.       ItemIndex = 1
  355.       Items.Strings = (
  356.         '&Evet'
  357.         '&Hay∩┐╜r')
  358.       ParentColor = False
  359.       ParentFont = False
  360.       TabOrder = 2
  361.     end
  362.     object MaskEditFI: TMaskEdit
  363.       Left = 236
  364.       Top = 3
  365.       Width = 23
  366.       Height = 22
  367.       Color = clWhite
  368.       EditMask = '!99;1;_'
  369.       Font.Color = clBlack
  370.       Font.Height = -11
  371.       Font.Name = 'Arial'
  372.       Font.Style = [fsBold]
  373.       MaxLength = 2
  374.       ParentFont = False
  375.       TabOrder = 0
  376.       Text = ' 0'
  377.     end
  378.     object RadioGrAL: TDBRadioGroup
  379.       Left = 1
  380.       Top = 1
  381.       Width = 167
  382.       Height = 136
  383.       HelpContext = 134
  384.       Caption = '∩┐╜skonto Tipi'
  385.       Color = clNavy
  386.       Ctl3D = True
  387.       DataField = 'ALISTIP'
  388.       DataSource = FiMikSRC
  389.       Font.Color = clWhite
  390.       Font.Height = -11
  391.       Font.Name = 'Arial'
  392.       Font.Style = [fsBold]
  393.       Items.Strings = (
  394.         '&1.Sabit Depo ∩┐╜sk.lu'
  395.         '&2.∩┐╜skontosuz'
  396.         '&3.Dep.Fiyatl∩┐╜ Sbt.D.∩┐╜sk.lu'
  397.         '&4.Dep. Fiyatl∩┐╜ ∩┐╜sk.suz'
  398.         '&5.Di∩┐╜.(KDVsiz) ∩┐╜sk.suz'
  399.         '&6.Farkl∩┐╜ ∩┐╜skontolu'
  400.         '&7.Dep. Fyt.l∩┐╜ Farkl∩┐╜ ∩┐╜sk.lu'
  401.         '&8.Di∩┐╜.(Kdvsiz) Sbt.D.∩┐╜sk.lu'
  402.         '&9.Di∩┐╜.(Kdvsiz) Farkl∩┐╜ ∩┐╜sk.lu')
  403.       ParentColor = False
  404.       ParentCtl3D = False
  405.       ParentFont = False
  406.       TabOrder = 3
  407.       Values.Strings = (
  408.         '0'
  409.         '1'
  410.         '2'
  411.         '3'
  412.         '4'
  413.         '5'
  414.         '6'
  415.         '7'
  416.         '8')
  417.       OnClick = RadioGrALClick
  418.     end
  419.   end
  420.   object PanelF: TPanel
  421.     Left = 0
  422.     Top = 131
  423.     Width = 172
  424.     Height = 144
  425.     BevelInner = bvLowered
  426.     TabOrder = 0
  427.     Visible = False
  428.     object DBGrid1: TDBGrid
  429.       Left = 2
  430.       Top = 2
  431.       Width = 168
  432.       Height = 140
  433.       HelpContext = 104
  434.       Align = alClient
  435.       DataSource = URUNFIYSRC
  436.       Font.Color = clBlack
  437.       Font.Height = -11
  438.       Font.Name = 'Arial'
  439.       Font.Style = []
  440.       ParentFont = False
  441.       TabOrder = 0
  442.       TitleFont.Color = clNavy
  443.       TitleFont.Height = -11
  444.       TitleFont.Name = 'Arial'
  445.       TitleFont.Style = []
  446.       OnKeyDown = DBGrid1KeyDown
  447.     end
  448.   end
  449.   object FKapaBtn: TBitBtn
  450.     Left = 4
  451.     Top = 283
  452.     Width = 145
  453.     Height = 25
  454.     Caption = 'Esk. Fyt. List.Ka&pat'
  455.     TabOrder = 11
  456.     Visible = False
  457.     OnClick = FKapaBtnClick
  458.     Glyph.Data = {
  459.       76010000424D7601000000000000760000002800000020000000100000000100
  460.       04000000000000010000130B0000130B00000000000000000000000000000000
  461.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  462.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
  463.       333B33F333337F3333373B33333BB33333B337FF33377F33337F3BB3333BB333
  464.       3BB3377FF3377F33377333BB777BB777BB333377FFF77FFF7733330000000000
  465.       B3333377777777777333330FFFFFFFF03333337F3FF3FFF7F333330F00F000F0
  466.       33333F7F77377737FFFFBB0FFF8FFFF0BBB3777F3F33FFF7777F3B0F08700000
  467.       000B377F73F7777777773308880FFFFFF033337F377333333733330807FFFFF8
  468.       033333737FFFFFFF7F33333000000000B3333337777777777FF333BB333BB333
  469.       BB33337733377F3377FF3BB3333BB3333BB3377333377F33377F3B33333BB333
  470.       33B33733333773333373B333333B3333333B7333333733333337}
  471.     NumGlyphs = 2
  472.   end
  473.   object FiMikSRC: TDataSource
  474.     DataSet = FiMikTAB
  475.     Left = 7
  476.     Top = 31
  477.   end
  478.   object URUNFIYSRC: TDataSource
  479.     DataSet = URUNFIYTab
  480.     Left = 101
  481.     Top = 232
  482.   end
  483.   object FiMikTAB: TTable
  484.     AfterPost = FiMikTABAfterPost
  485.     DatabaseName = 'ECZ'
  486.     TableName = 'FITMP.DB'
  487.     Left = 4
  488.     Top = 65535
  489.     object FiMikTABILACNO: TIntegerField
  490.       FieldName = 'ILACNO'
  491.     end
  492.     object FiMikTABFIYAT: TCurrencyField
  493.       FieldName = 'FIYAT'
  494.     end
  495.     object FiMikTABTARIH: TDateField
  496.       FieldName = 'TARIH'
  497.     end
  498.     object FiMikTABELDEMIK: TIntegerField
  499.       Alignment = taCenter
  500.       FieldName = 'ELDEMIK'
  501.     end
  502.     object FiMikTABSATISMIK: TIntegerField
  503.       Alignment = taLeftJustify
  504.       FieldName = 'SATISMIK'
  505.       OnSetText = FiMikTABSATISMIKSetText
  506.     end
  507.     object FiMikTABRECKOD: TStringField
  508.       FieldName = 'RECKOD'
  509.       Size = 1
  510.     end
  511.     object FiMikTABALISTIP: TStringField
  512.       FieldName = 'ALISTIP'
  513.       Size = 1
  514.     end
  515.   end
  516.   object URUNFIYTab: TTable
  517.     AfterOpen = URUNFIYTabAfterOpen
  518.     AfterInsert = URUNFIYTabAfterInsert
  519.     BeforePost = URUNFIYTabBeforePost
  520.     AfterPost = URUNFIYTabAfterPost
  521.     DatabaseName = 'ECZ'
  522.     IndexFieldNames = 'ILACNO;FITARIH'
  523.     MasterFields = 'ILACNO'
  524.     MasterSource = FiMikSRC
  525.     TableName = 'urfayar.db'
  526.     Left = 58
  527.     Top = 232
  528.     object URUNFIYTabILACNO: TIntegerField
  529.       FieldName = 'ILACNO'
  530.       Visible = False
  531.     end
  532.     object URUNFIYTabFITARIH: TDateTimeField
  533.       DisplayLabel = 'Fyt.Tarihi'
  534.       DisplayWidth = 8
  535.       FieldName = 'FITARIH'
  536.       DisplayFormat = 'dd/mm/yy'
  537.       EditMask = '!90/90/9900;1; '
  538.     end
  539.     object URUNFIYTabFIYAT: TCurrencyField
  540.       DisplayLabel = 'Eski Fiyatlar∩┐╜'
  541.       DisplayWidth = 13
  542.       FieldName = 'FIYAT'
  543.     end
  544.   end
  545.   object QUFDegis: TQuery
  546.     DatabaseName = 'ECZ'
  547.     SQL.Strings = (
  548.       'UPDATE URUN')
  549.     Left = 157
  550.     Top = 236
  551.   end
  552. end
  553.